home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PASSRC.ZIP / EXTREAL.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-02-04  |  1.3 KB  |  41 lines
  1.                                 (* Chapter 3 - Program 10 *)
  2. program Extended_Real_Types;
  3.  
  4. (* Note: If you are using TURBO Pascal Version 5.0  or newer    *)
  5. (*       and you do not have a Math Co_Processor, you can       *)
  6. (*       still compile and run this program by using the        *)
  7. (*       compiler directive as explained in the User's Guide.   *)
  8.  
  9. var Number       : real;
  10.     Small_Number : single;
  11.     Big_Number   : double;
  12.     Huge_Number  : extended;
  13.     Whole_Number : comp;
  14.  
  15. begin
  16.    Number       := 100000000000000000000000000.0;
  17.    Small_Number := 100000000000000000000000000.0;
  18.    Big_Number   := 100000000000000000000000000.0;
  19.    Huge_Number  := 100000000000000000000000000.0;
  20.    Whole_Number := 1000000000000000000.0;
  21.  
  22.    Writeln('Number       = ',Number      :40:3);
  23.    Writeln('Small_Number = ',Small_Number:40:3);
  24.    Writeln('Big_Number   = ',Big_Number  :40:3);
  25.    Writeln('Huge_Number  = ',Huge_Number :40:3);
  26.    Writeln('Whole_Number = ',Whole_Number:40:3);
  27. end.
  28.  
  29.  
  30.  
  31.  
  32. { Result of execution
  33.  
  34. Number       =          99999999999985900100000000.000
  35. Small_Number =         100000002537764290000000000.000
  36. Big_Number   =         100000000000000005000000000.000
  37. Huge_Number  =         100000000000000000000000000.000
  38. Whole_Number =                 1000000000000000000.000
  39.  
  40. }
  41.